home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / telecomm / bbs / tbbs093.lha / Rexx / QSet.rexx < prev    next >
OS/2 REXX Batch file  |  1994-02-15  |  3KB  |  94 lines
  1. /* QWK settings script */
  2.  
  3. CR = D2C(13)
  4. LF = D2C(10)
  5. CRLF = CR||LF
  6. ESC = D2C(27)
  7. WHITE = ESC||"[0m"
  8. RED = ESC||"[31m"
  9. GREEN = ESC||"[32m"
  10. YELLOW = ESC||"[33m"
  11. BLUE = ESC||"[34m"
  12. PURPLE = ESC||"[35m"
  13. CYAN = ESC||"[36m"
  14. CLEAR = D2C(12)
  15. ln = arg(1)
  16. LineName = Con_LineActive(ln)
  17. if LineName = "" then exit 10
  18. address value LineName
  19. do forever
  20.     SetStatus "QWK Settings:"
  21.     if GetUserMisc(ln, "QWKASYNC") = 1 then des = "ON"
  22.     else des = "OFF"
  23.     SendModem CRLF||"(1)  "||CYAN||"Asynchronous operation: "||WHITE||des||CRLF
  24.     des = GetUserMisc(ln, "QWKUNARC")
  25.     select
  26.         when des = "lha x" then des = "LhA"
  27.         when des = "unzip" then des = "Zip"
  28.         when des = "arc x" then des = "Arc"
  29.         when des = "zoo e" then des = "Zoo"
  30.         when des = "unarj" then des = "Arj"
  31.         when des = "" then des = "LhA"
  32.         otherwise des = "Unknown"
  33.         end
  34.     SendModem "(2)  "||CYAN||"Input archiving method: "||WHITE||des||CRLF
  35.     des = GetUserMisc(ln, "QWKARC")
  36.     select
  37.         when des = "lha a" then des = "LhA"
  38.         when des = "arc a" then des = "Arc"
  39.         when des = "zoo a" then des = "Zoo"
  40.         when des = "" then des = "LhA"
  41.         otherwise des = "Unknown"
  42.         end
  43.     SendModem "(3) "||CYAN||"Output archiving method: "||WHITE||des||CRLF
  44.     SendModem CRLF||"(Q) "||CYAN||"Quit"||CRLF||CRLF||WHITE
  45.     cmdstr = AskInput(ln, "("||GetTimeLeft(ln)||") "||CYAN||"QWK Settings: "||WHITE, "", 255)
  46.     sendmodem CRLF
  47.     do while (left(cmdstr, 1) = " ") & (length(cmdstr) > 0)
  48.         cmdstr = right(cmdstr, length(cmdstr) - 1)
  49.         end
  50.     parse var cmdstr cmdid cmdstr
  51.     cmdid = upper(cmdid)
  52.     do while (left(cmdstr, 1) = " ") & (length(cmdstr) > 0)
  53.         cmdstr = right(cmdstr, length(cmdstr) - 1)
  54.         end
  55.     select
  56.         when cmdid = "1" then do
  57.             if GetUserMisc(ln, "QWKASYNC") = 1 then do
  58.                 call SetUserMisc ln, "QWKTASKPRI", 1
  59.                 call SetUserMisc ln, "QWKASYNC", 0
  60.                 end
  61.             else do
  62.                 call SetUserMisc ln, "QWKTASKPRI", -1
  63.                 call SetUserMisc ln, "QWKASYNC", 1
  64.                 end
  65.             end
  66.         when cmdid = "2" then do
  67.             des = GetUserMisc(ln, "QWKUNARC")
  68.             select
  69.                 when des = "lha x" then des = "unzip"
  70.                 when des = "unzip" then des = "arc x"
  71.                 when des = "arc x" then des = "zoo e"
  72.                 when des = "zoo e" then des = "unarj"
  73.                 when des = "unarj" then des = "lha x"
  74.                 when des = "" then des = "unzip"
  75.                 otherwise des = "lha x"
  76.                 end
  77.             call SetUserMisc ln, "QWKUNARC", des
  78.             end
  79.         when cmdid = "3" then do
  80.             des = GetUserMisc(ln, "QWKARC")
  81.             select
  82.                 when des = "lha a" then des = "arc a"
  83.                 when des = "arc a" then des = "zoo a"
  84.                 when des = "zoo a" then des = "lha a"
  85.                 when des = "" then des = "zoo a"
  86.                 otherwise des = "lha a"
  87.                 end
  88.             call SetUserMisc ln, "QWKARC", des
  89.             end
  90.         when cmdid = "Q" then exit 0
  91.         otherwise
  92.         end
  93.     end
  94.